Team selection tool for Informationsvisualisering
###Install packages
install.packages("tidyverse")
WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:
https://cran.rstudio.com/bin/windows/Rtools/
Installing package into 㤼㸱C:/Users/c3i2/Documents/R/win-library/4.0㤼㸲
(as 㤼㸱lib㤼㸲 is unspecified)
trying URL 'https://cran.rstudio.com/bin/windows/contrib/4.0/tidyverse_1.3.0.zip'
Content type 'application/zip' length 439978 bytes (429 KB)
downloaded 429 KB
package ‘tidyverse’ successfully unpacked and MD5 sums checked
The downloaded binary packages are in
C:\Users\c3i2\AppData\Local\Temp\RtmpgVh5xE\downloaded_packages
library(tidyverse)
package 㤼㸱tidyverse㤼㸲 was built under R version 4.0.3-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
v ggplot2 3.3.2 v purrr 0.3.4
v tibble 3.0.1 v dplyr 1.0.0
v tidyr 1.1.0 v stringr 1.4.0
v readr 1.3.1 v forcats 0.5.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag() masks stats::lag()
install.packages("plotly")
WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:
https://cran.rstudio.com/bin/windows/Rtools/
Installing package into 㤼㸱C:/Users/c3i2/Documents/R/win-library/4.0㤼㸲
(as 㤼㸱lib㤼㸲 is unspecified)
trying URL 'https://cran.rstudio.com/bin/windows/contrib/4.0/plotly_4.9.3.zip'
Content type 'application/zip' length 3118743 bytes (3.0 MB)
downloaded 3.0 MB
package ‘plotly’ successfully unpacked and MD5 sums checked
The downloaded binary packages are in
C:\Users\c3i2\AppData\Local\Temp\RtmpgVh5xE\downloaded_packages
library(plotly)
package 㤼㸱plotly㤼㸲 was built under R version 4.0.3
Attaching package: 㤼㸱plotly㤼㸲
The following object is masked from 㤼㸱package:ggplot2㤼㸲:
last_plot
The following object is masked from 㤼㸱package:stats㤼㸲:
filter
The following object is masked from 㤼㸱package:graphics㤼㸲:
layout
### load data
Project_2 <- read.csv("~/Project_2.csv", sep=";", comment.char="#")
head(Project_2)
Instructions
-
Identify your own weaknesses
-
Pick somebody that complements you - strong where you are weak on one of the graphs
-
Iteratively keep selecting persons that are different then the current team from the three graphs
Plot1 <- ggplot(data = Project_2, aes(x=Statistical.skills, y=Programming.skills, group = 1, text = paste("Alias: ", Alias, "<br>Interests:", Interests )
)) + theme_bw()+
geom_jitter(width = 0.2, height = 0.2, alpha = 0.5)+
### jitter added to avoid overplotting
ggtitle("Students in Information Visualization - Hard skills")+
ylab("Programming skills")+
xlab("Statistical skills")
ggplotly(Plot1)
### color (categorical) removed to simplify
Plot2 <- ggplot(data = Project_2, aes(x=Communication.skills, y=Collaboration.skills, group = 1, text = paste("Alias: ", Alias, "<br>Interests:", Interests )
)) + theme_bw()+
geom_jitter(width = 0.2, height = 0.2, alpha = 0.5)+
### jitter added to avoid overplotting
ggtitle("Students in Information Visualization - Soft skills")+
ylab("Collaboration skills")+
xlab("Communication skills")
ggplotly(Plot2)
### color (categorical) removed to simplify
Plot3 <- ggplot(data = Project_2, aes(x=Graphics.programming.skills, y=User.experience.evaluation.skills, group = 1, text = paste("Alias: ", Alias, "<br>Interests:", Interests )
)) + theme_bw()+
geom_jitter(width = 0.2, height = 0.2, alpha = 0.5)+
### jitter added to avoid overplotting
ggtitle("Students in Information Visualization - Unicorn skills")+
ylab("Graphics programming skills")+
xlab("UX evaluation skills")
ggplotly(Plot3)
### color (categorical) removed to simplify
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2sgZm9yIHRlYW0gc2VsZWN0aW9uIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCjxoMj5UZWFtIHNlbGVjdGlvbiB0b29sIGZvciBJbmZvcm1hdGlvbnN2aXN1YWxpc2VyaW5nPC9oMj4NCmBgYHtyfQ0KIyMjSW5zdGFsbCBwYWNrYWdlcw0KaW5zdGFsbC5wYWNrYWdlcygidGlkeXZlcnNlIikNCmxpYnJhcnkodGlkeXZlcnNlKQ0KaW5zdGFsbC5wYWNrYWdlcygicGxvdGx5IikNCmxpYnJhcnkocGxvdGx5KQ0KYGBgDQpgYGB7cn0NCiMjIyBsb2FkIGRhdGENClByb2plY3RfMiA8LSByZWFkLmNzdigifi9Qcm9qZWN0XzIuY3N2Iiwgc2VwPSI7IiwgY29tbWVudC5jaGFyPSIjIikNCmhlYWQoUHJvamVjdF8yKQ0KYGBgDQo8aDI+IEluc3RydWN0aW9ucyA8L2gyPg0KPHVsPg0KPGxpPklkZW50aWZ5IHlvdXIgb3duIHdlYWtuZXNzZXM8L2xpPg0KPGxpPlBpY2sgc29tZWJvZHkgdGhhdCBjb21wbGVtZW50cyB5b3UgLSBzdHJvbmcgd2hlcmUgeW91IGFyZSB3ZWFrIG9uIG9uZSBvZiB0aGUgZ3JhcGhzPC9saT4NCjxsaT5JdGVyYXRpdmVseSBrZWVwIHNlbGVjdGluZyBwZXJzb25zIHRoYXQgYXJlIGRpZmZlcmVudCB0aGVuIHRoZSBjdXJyZW50IHRlYW0gZnJvbSB0aGUgdGhyZWUgZ3JhcGhzPC9saT4NCjwvdWw+DQoNCg0KDQoNCmBgYHtyfQ0KUGxvdDEgPC0gZ2dwbG90KGRhdGEgPSBQcm9qZWN0XzIsIGFlcyh4PVN0YXRpc3RpY2FsLnNraWxscywgeT1Qcm9ncmFtbWluZy5za2lsbHMsIGdyb3VwID0gMSwgdGV4dCA9IHBhc3RlKCJBbGlhczogIiwgQWxpYXMsICI8YnI+SW50ZXJlc3RzOiIsIEludGVyZXN0cyApDQopKSArIHRoZW1lX2J3KCkrDQogICAgICBnZW9tX2ppdHRlcih3aWR0aCA9IDAuMiwgaGVpZ2h0ID0gMC4yLCBhbHBoYSA9IDAuNSkrDQojIyMgaml0dGVyIGFkZGVkIHRvIGF2b2lkIG92ZXJwbG90dGluZw0KZ2d0aXRsZSgiU3R1ZGVudHMgaW4gSW5mb3JtYXRpb24gVmlzdWFsaXphdGlvbiAtIEhhcmQgc2tpbGxzIikrDQogIHlsYWIoIlByb2dyYW1taW5nIHNraWxscyIpKw0KICB4bGFiKCJTdGF0aXN0aWNhbCBza2lsbHMiKQ0KICANCmdncGxvdGx5KFBsb3QxKQ0KIyMjIGNvbG9yIChjYXRlZ29yaWNhbCkgcmVtb3ZlZCB0byBzaW1wbGlmeQ0KYGBgDQoNCmBgYHtyfQ0KUGxvdDIgPC0gZ2dwbG90KGRhdGEgPSBQcm9qZWN0XzIsIGFlcyh4PUNvbW11bmljYXRpb24uc2tpbGxzLCB5PUNvbGxhYm9yYXRpb24uc2tpbGxzLCAgZ3JvdXAgPSAxLCB0ZXh0ID0gcGFzdGUoIkFsaWFzOiAiLCBBbGlhcywgIjxicj5JbnRlcmVzdHM6IiwgSW50ZXJlc3RzICkNCikpICsgdGhlbWVfYncoKSsNCiAgZ2VvbV9qaXR0ZXIod2lkdGggPSAwLjIsIGhlaWdodCA9IDAuMiwgYWxwaGEgPSAwLjUpKw0KICAjIyMgaml0dGVyIGFkZGVkIHRvIGF2b2lkIG92ZXJwbG90dGluZw0KICBnZ3RpdGxlKCJTdHVkZW50cyBpbiBJbmZvcm1hdGlvbiBWaXN1YWxpemF0aW9uIC0gU29mdCBza2lsbHMiKSsNCiAgeWxhYigiQ29sbGFib3JhdGlvbiBza2lsbHMiKSsNCiAgeGxhYigiQ29tbXVuaWNhdGlvbiBza2lsbHMiKQ0KZ2dwbG90bHkoUGxvdDIpDQojIyMgY29sb3IgKGNhdGVnb3JpY2FsKSByZW1vdmVkIHRvIHNpbXBsaWZ5DQpgYGANCmBgYHtyfQ0KUGxvdDMgPC0gZ2dwbG90KGRhdGEgPSBQcm9qZWN0XzIsIGFlcyh4PUdyYXBoaWNzLnByb2dyYW1taW5nLnNraWxscywgeT1Vc2VyLmV4cGVyaWVuY2UuZXZhbHVhdGlvbi5za2lsbHMsICBncm91cCA9IDEsIHRleHQgPSBwYXN0ZSgiQWxpYXM6ICIsIEFsaWFzLCAiPGJyPkludGVyZXN0czoiLCBJbnRlcmVzdHMgKQ0KKSkgKyB0aGVtZV9idygpKw0KICBnZW9tX2ppdHRlcih3aWR0aCA9IDAuMiwgaGVpZ2h0ID0gMC4yLCBhbHBoYSA9IDAuNSkrDQojIyMgaml0dGVyIGFkZGVkIHRvIGF2b2lkIG92ZXJwbG90dGluZw0KICBnZ3RpdGxlKCJTdHVkZW50cyBpbiBJbmZvcm1hdGlvbiBWaXN1YWxpemF0aW9uIC0gVW5pY29ybiBza2lsbHMiKSsNCiAgeWxhYigiR3JhcGhpY3MgcHJvZ3JhbW1pbmcgc2tpbGxzIikrDQogIHhsYWIoIlVYIGV2YWx1YXRpb24gc2tpbGxzIikNCmdncGxvdGx5KFBsb3QzKQ0KIyMjIGNvbG9yIChjYXRlZ29yaWNhbCkgcmVtb3ZlZCB0byBzaW1wbGlmeQ0KYGBgDQoNCg==